10/20/2019

App purpose

This app is meant to be used to find the best price/quality wines in the market. You can refine your search based on scores and prices, and inspect the data in a chart split by country, and a complete table.

Adjust the parameters

  • Min points (scoring) will filter the results keeping only the scores greater that the specified param.
  • Price scope will let you filter the results keeping only which price is between the indicated draggable indicator.

Source

We first load wines from original source (VIVINO) and filter out some:

wine_ratings <- readr::read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2019/2019-05-28/winemag-data-130k-v2.csv")
Parsed with column specification:
cols(
  X1 = col_double(),
  country = col_character(),
  description = col_character(),
  designation = col_character(),
  points = col_double(),
  price = col_double(),
  province = col_character(),
  region_1 = col_character(),
  region_2 = col_character(),
  taster_name = col_character(),
  taster_twitter_handle = col_character(),
  title = col_character(),
  variety = col_character(),
  winery = col_character()
)

Sample

## Selecting by avg_price

Thanks you!

Thanks to all co-students that will review this work.